IVrite a program to print out the fotfowing figure. 

* 

** 

### 

#### 

#### 
### 
** 
* 

Module Modulel 
Sub Main() 

Dim i, j As Integer 

For i = 1 To 5 

For j = 1 To i 

Console. Write("*") 

Next 

Console .Write Line ( ) 

Next 

For i = 1 To 4 

For j = 4 To i Step -1 
Console. Writef'*") 

Next 

Console .Write Line ( ) 

Next 

Console . Read Line ( ) 
End Sub 
End Module 



IVrite a program to print out the fotfowing figure. 
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Module Modulel 
Sub Main() 

Dim i, j As Integer 

3 = 1 

For i = 1 To 5 

For j = 1 To i 

Console .Write(j ) 

Next 

Console .Write Line ( ) 

Next 

Console. Read Line ( ) 
End Sub 
End Module 

yVrite a program to print out if the enter ed number is 
prime or not. 

Module Modulel 

Sub Main() 

Dim n As Integer 
n = InputBox( "Enter The Number") 
For i = 2 To 1000000000 
If n Mod i = Then 
If i = n Then 

MsgBox( "Prime") 
Exit For 

Else 

MsgBox("Not Prime") 



Exit For 
End If 
End If 

Next 
End Sub 



End Module 



yVrite a function to caCcuCate c= ( ml + n! ) / ( U -j! ). 

Module Modulel 

Sub Main() 

Dim c, m, n, i, j As Integer 

m = InputBox( "Enter The Number: ") 

n = InputBox( "Enter The Number: ") 

i = InputBox( "Enter The Number: ") 

j = InputBox( "Enter The Number: ") 

c = (Factorial(m) + Factorial(n) ) / (Factorial(i) - 
Factorial( j ) ) 

MsgBox( "Result is: " & c) 
End Sub 

Function Factorial(ByVal x As Integer) 
Dim f As Integer 
f = 1 

For i = 1 To x 
f = f * i 

Next 

Return (f) 
End Function 

End Module 

yVrite a program to read a tow dimensionaC array (a) 
and then find: 

• The number of even e Cements. 

• The sum of the positive odd eCement. 

Module Modulel 



Sub Main() 

Dim i, j, m, n, sum, r As Integer 



m = InputBox( "Enter number of rows in the matrix") 
n = InputBox( "Enter number of columns in the matrix") 

Dim a(m, n) As Integer 
For i = To m - 1 

For j = To n - 1 

a(i, j) = InputBox("A(" & i + 1 & " , " & j + 1 & ")") 

Next 

Next 



r = 
sum = 



For i = To m - 1 

For j = To n - 1 

If a(i, j) Mod 2 = Then 

r = r + 1 
End If 

Next 

Next 



For i = To m - 1 

For j = To n - 1 

If a(i, j) Mod 2 > Then 

sum = sum + a(i, j) 
End If 

Next 

Next 



MsgBox("The Number of Even Numbers is: " & r & " & The Sum of 
the Positive odd numbers is: " & sum) 



End Sub 
End Module 

yVrite a program to read a tow dimensionaC array (a) 
and then find: 

• The sum of each raw. 

• The sum of each coCumn. 

• The product of the main diagonaC 



Module Modulel 



Sub Main() 

Dim i, j, M, N, Raw_Sum, Column_Sum, Product As Integer 

M = InputBox( "Enter number of rows in the matrix") 
N = InputBox( "Enter number of colums in the matrix") 

Dim a(m, n) As Integer 
For i = To m - 1 

For j = To n - 1 

a(i, j) = InputBox("A(" & i + 1 & " , " & j + 1 & ")") 

Next 

Next 

For i = To M - 1 
Raw_Sum = 
For j = To N - 1 

Raw_Sum = Raw_Sum + a(i, j) 

Next 

MsgBox("The Sum of the elements in the raw " & i + 1 & " 
is: " & Raw_Sum) 
Next 

For i = To M - 1 
Column_Sum = 
For j = To N 
Column_Sum 

Next 

MsgBox("The Sum 
" is: " & Column_Sum) 
Next 

Product = 1 

For i = To m - 1 

Product = Product * a(i, i) 

Next 

MsgBox("The Product of the elements in the main diagonal is: " 
& Product) 
End Sub 



- 1 

= Column_Sum + a(j, i) 
of the elements in the colomn " & i + 1 & 



End Module 



Using the optionaC keyword caCcuCate the 
maximum, of two or three positive numbers. 



Module Modulel 

Sub Main() 

Dim Max, R As Integer 
Dim N(3) As Integer 

aaa: R = InputBox( "Press 3 or 2, according how many numbers you 
want to get the maximum of: ") 

If R > 3 Or R < 2 Then 

MsgBox("Error") 

GoTo aaa 
End If 

For i = To R - 1 

N(i) = InputBox("Enter Number " & i + 1) 

Next 

If R = 2 Then 

Max = Maximum(N(0), N(l)) 
MsgBox(Max) 

Else 

Max = Maximum(N(0), N(l), N(2)) 
MsgBox(Max) 
End If 

End Sub 

Function Maximum(ByVal x As Integer, ByVal y As Integer, Optional 
z As Integer = 0) 

Dim Max As Integer 

If x > y Then 

If x > z Then 
Max = x 

Else 

Max = z 
End If 

Else 



If y > z Then 
Max = y 

Else 

Max = z 
End If 
End If 



Return (Max) 
End Function 
End Module 



^Another SoCution 6y JAnwar IVagdy 

Module Modulel 

Sub Main() 

Dim R, Max, Nl, N2, N3 As Integer 
aaa: R = InputBox("If you want to get the maximum number of two 
numbers press 2, but if you want to get the maximum number of three 
numbers press 3") 

If R > 3 Or R < 2 Then 

MsgBox("Error") 

GoTo aaa 
End If 

If R = 2 Then 

Nl = InputBox("Enter the first number") 
N2 = InputBox("Enter the second number") 
Max = Maximum(Nl, N2) 
MsgBox("The maximum number is " & Max) 

Else 

Nl = InputBox("Enter the first number") 
N2 = InputBox("Enter the second number") 
N3 = InputBox("Enter the third number") 
Max = Maximum(Nl, N2, N3) 
MsgBox("The maximum number is " & Max) 
End If 
End Sub 

Function Maximum(ByVal x As Integer, ByVal y As Integer, Optional 
z As Integer = 1) 

Dim Max As Integer 



If x > y And x > z Then 

Max = x 
Elself y > x And y > z Then 

Max = y 

Else 

Max = z 
End If 

Return (Max) 
End Function 



End Module 



